home *** CD-ROM | disk | FTP | other *** search
/ Know Your Owls / Know Your Owls.iso / setup.bak < prev    next >
Text File  |  1995-06-27  |  18KB  |  531 lines
  1.  
  2.  
  3. '**************************************************************************
  4. '*                       MSSetup script for AXIA BOP (OWLS)
  5. '**************************************************************************
  6.  
  7. '*'$DEFINE DEBUG  ''Define for script development/debugging
  8.  
  9. '$INCLUDE 'setupapi.inc'
  10. '$INCLUDE 'mscpydis.inc'
  11. '$INCLUDE 'msdetect.inc'
  12.  
  13. ''Dialog ID's
  14. CONST WELCOME       = 100
  15. CONST AXIAINFO      = 101
  16. CONST ASKQUIT       = 200
  17. CONST DESTPATH      = 300
  18. CONST EXITFAILURE   = 400
  19. CONST EXITQUIT      = 600
  20. CONST EXITSUCCESS   = 700
  21. CONST APPHELP       = 900
  22. CONST CHECK         = 2500
  23. CONST SMALLWIN      = 2200
  24. CONST RESTART       = 2600
  25. CONST RESTARTII     = 2700
  26. CONST BADPATH       = 6400
  27.  
  28. ''Bitmap ID
  29. CONST LOGO = 1
  30.  
  31. GLOBAL WinDir$
  32. GLOBAL WinSysDir$
  33. GLOBAL DEST$        ''Default destination directory.
  34. GLOBAL WINDRIVE$    ''Windows Drive Letter.
  35. GLOBAL CHECKSTATES$
  36. GLOBAL CUIDLL$
  37.  
  38. DECLARE SUB InstallVFW
  39. DECLARE FUNCTION OnWindowsNT LIB "INIUPD.DLL" AS INTEGER
  40. DECLARE FUNCTION VflatdPresent LIB "iniupd.DLL" AS INTEGER
  41. DECLARE SUB Reboot LIB "iniupd.dll"
  42. DECLARE FUNCTION ExitWindowsExec  LIB "User" (Exec$, Param$) AS INTEGER
  43. DECLARE SUB Install
  44. DECLARE SUB VWInstall
  45. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  46. DECLARE SUB WinExec LIB "kernel.exe" (cmd$, show%)
  47. DECLARE FUNCTION getPhysicalMemorySize LIB "mscuistf.dll" AS INTEGER
  48.  
  49. INIT:
  50.     WinDir$ = GetWindowsDir()
  51.     WinSysDir$ = GetWindowsSysDir()
  52.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  53.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  54.  
  55.     SetBitmap CUIDLL$, LOGO
  56.     SetTitle "Axia Know Your Birds of Prey Vol.1 OWLS"
  57.  
  58.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  59.     IF szInf$ = "" THEN
  60.         szInf$ = GetSymbolValue("STF_CWDDIR") + "SETUP.INF"
  61.     END IF
  62.     ReadInfFile szInf$
  63.  
  64.     DEST$ = "C:\AXIAOWLS"
  65.  
  66. '$IFDEF DEBUG
  67.     i% = SetSizeCheckMode(scmOnIgnore)    '' could use scmOff; def = scmOnFatal
  68.     WinDrive$ = MID$(GetWindowsDir, 1, 1)
  69.     IF IsDriveValid(WinDrive$) = 0 THEN
  70.         i% = DoMsgBox("Windows drive ('"+WinDrive$+"') is not a valid drive.", "DEBUG", MB_TASKMODAL+MB_ICONHAND+MB_OK)
  71.         GOTO QUIT
  72.     END IF
  73. '$ENDIF ''DEBUG
  74.  
  75.  
  76. WELCOME:
  77.     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
  78.     IF sz$ = "CONTINUE" THEN
  79.         UIPop 1
  80.     ELSE
  81.         GOSUB ASKQUIT
  82.         GOTO WELCOME
  83.     END IF
  84.  
  85.  
  86.  
  87. GETPATH:
  88.     SetSymbolValue "EditTextIn", DEST$
  89.     SetSymbolValue "EditFocus", "END"
  90. GETPATHL1:
  91.     sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$)
  92.     DEST$ = GetSymbolValue("EditTextOut")
  93.  
  94.     IF sz$ = "CONTINUE" THEN
  95.         IF IsDirWritable(DEST$) = 0 THEN
  96.             GOSUB BADPATH
  97.             GOTO GETPATHL1
  98.         END IF
  99.         UIPop 1
  100.     ELSEIF sz$ = "REACTIVATE" THEN
  101.         GOTO GETPATHL1
  102.     ELSEIF sz$ = "BACK" THEN
  103.         UIPop 1
  104.         GOTO WELCOME
  105.     ELSE
  106.         GOSUB ASKQUIT
  107.         GOTO GETPATH
  108.     END IF
  109.  
  110.  
  111.     Install
  112.  
  113.  
  114. QUIT:
  115.     ON ERROR GOTO ERRQUIT
  116.  
  117.     IF ERR = 0 THEN
  118.         dlg% = EXITSUCCESS
  119.     ELSEIF ERR = STFQUIT THEN
  120.         dlg% = EXITQUIT
  121.     ELSE
  122.         dlg% = EXITFAILURE
  123.     END IF
  124. QUITL1:
  125.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  126.     IF sz$ = "REACTIVATE" THEN
  127.         GOTO QUITL1
  128.     END IF
  129.     UIPop 1
  130.  
  131.     END
  132.  
  133. ERRQUIT:
  134.     i% = DoMsgBox("Setup sources were corrupted, call (403) 262-2942!", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  135.     END
  136.  
  137.  
  138.  
  139. BADPATH:
  140.     sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  141.     IF sz$ = "REACTIVATE" THEN
  142.         GOTO BADPATH
  143.     END IF
  144.     UIPop 1
  145.     RETURN
  146.  
  147.  
  148.  
  149. ASKQUIT:
  150.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  151.  
  152.     IF sz$ = "EXIT" THEN
  153.         UIPopAll
  154.         ERROR STFQUIT
  155.     ELSEIF sz$ = "REACTIVATE" THEN
  156.         GOTO ASKQUIT
  157.     ELSE
  158.         UIPop 1
  159.     END IF
  160.     RETURN
  161.  
  162.  
  163.  
  164. '**
  165. '** Purpose:
  166. '**     Builds the copy list and performs all installation operations.
  167. '** Arguments:
  168. '**     none.
  169. '** Returns:
  170. '**     none.
  171. '*************************************************************************
  172. SUB Install STATIC
  173.  
  174.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  175.     CreateDir DEST$, cmoNone
  176.  
  177. '*    OpenLogFile MakePath(DEST$, "LOGFILE.OUT"), 0
  178. '*    WriteToLogFile ""
  179. '*    WriteToLogFile "  User chose as destination directory: '" + DEST$ + "'"
  180. '*    WriteToLogFile "  User chose option: '" + OPTCUR$ + "'"
  181. '*    WriteToLogFile ""
  182. '*    WriteToLogFile "May have had to create the directory: " + DEST$
  183. '*    WriteToLogFile ""
  184.  
  185.     AddSectionFilesToCopyList "Files", SrcDir$, DEST$
  186.     AddSectionFilesToCopyList "Ctl3d", MakePath (SrcDir$, "other"), WinSysDir$
  187.     CopyFilesInCopyList
  188.  
  189. '* create the subsets directory
  190.  
  191.     CreateDir MakePath(DEST$,"SUBSETS"), cmoNone
  192.  
  193. '* create the INI file
  194.  
  195.         CreateIniKeyValue "win.ini", "Axia", "Owls", Dest$, cmoOverwrite
  196.  
  197.  
  198.     ini$ = MakePath(Dest$, "axia.ini")
  199.         CreateIniKeyValue ini$, "startup", "firsttime", "1" , cmoOverwrite
  200.         IF getPhysicalMemorySize < 8 THEN
  201.             CreateIniKeyValue ini$, "midi", "music", "0" , cmoOverwrite
  202.         ELSE
  203.             CreateIniKeyValue ini$, "midi", "music", "1" , cmoOverwrite
  204.         END IF
  205.         CreateIniKeyValue ini$, "zoom", "factor", "200" , cmoOverwrite
  206.         CreateIniKeyValue ini$, "About", "Title", "About Axia Birds of Prey vol. 1 - Know Your Owls" , cmoOverwrite
  207.         CreateIniKeyValue ini$, "About", "Version", "Know Your Birds of Prey vol. 1 v1.3" , cmoOverwrite
  208.         CreateIniKeyValue ini$, "About", "Trademark", "Know Your Birds of Prey vol. 1 is a trademark" , cmoOverwrite
  209.         
  210.  
  211.         CreateIniKeyValue ini$, "paths","cd", SrcDir$, cmoOverwrite
  212.         CreateIniKeyValue ini$, "paths","working", Dest$, cmoOverwrite
  213.     
  214.         CreateIniKeyValue ini$, "Product","ID", "owls", cmoOverwrite
  215.         CreateIniKeyValue ini$, "Product","Ver","1.3", cmoOverwrite
  216.  
  217.  
  218. '* create the program manager group & items
  219.  
  220.     CreateProgmanGroup "AXIA OWLS", WinDir$+"axiaowls.grp", cmoNone
  221.     ShowProgmanGroup  "AXIA OWLS", 1, cmoNone
  222.  
  223.     CreateProgmanItem "AXIA OWLS", "Axia Owls", MakePath(DEST$,"bin\axia.exe "), ",,,,", cmoOverwrite
  224.     CreateProgmanItem "AXIA OWLS", "SlideShow", MakePath(DEST$,"bin\pictures.exe ")+" pictures.dat 5", ",,,,", cmoOverwrite
  225.     CreateProgmanItem "AXIA OWLS", "How To Use Axia", MakePath(DEST$,"bin\axia.exe")+" Ahtua.afs", MakePath(DEST$,"bin\htua.ico")+",,,,", cmoOverwrite
  226.     CreateProgmanItem "AXIA OWLS", "Read Me", MakePath(GetWindowsDir, "write.exe")+" "+SrcDir$+"other\readme.wri", ",,,,"+MakePath(SrcDir$, "midi\scripts"), cmoOverwrite
  227.     CreateProgmanItem "AXIA OWLS", "Installation Help", MakePath(GetWindowsDir, "winhelp.exe")+" "+SrcDir$+"help\install.hlp", ",,,,"+MakePath (SrcDir$, "help"), cmoOverwrite
  228.  
  229.  
  230. INFO:
  231.     sz$ = UIStartDlg(CUIDLL$, AXIAINFO,"FInfoDlgProc", APPHELP, HELPPROC$)
  232.     IF sz$ = "CONTINUE" THEN
  233.         UIPop 1
  234.     ELSE
  235.         GOSUB ASKQUIT
  236.         GOTO INFO
  237.     END IF
  238.  
  239.     InstallVfW
  240. '*    CloseLogFile
  241.  
  242. ASKQUIT:
  243.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  244.  
  245.     IF sz$ = "EXIT" THEN
  246.         UIPopAll
  247.         ERROR STFQUIT
  248.     ELSEIF sz$ = "REACTIVATE" THEN
  249.         GOTO ASKQUIT
  250.     ELSE
  251.         UIPop 1
  252.     END IF
  253.     RETURN
  254.  
  255. END SUB
  256.  
  257.  
  258.  
  259. '**
  260. '** Purpose:
  261. '**     Appends a file name to the end of a directory path,
  262. '**     inserting a backslash character as needed.
  263. '** Arguments:
  264. '**     szDir$  - full directory path (with optional ending "\")
  265. '**     szFile$ - filename to append to directory
  266. '** Returns:
  267. '**     Resulting fully qualified path name.
  268. '*************************************************************************
  269. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  270.     IF szDir$ = "" THEN
  271.         MakePath = szFile$
  272.     ELSEIF szFile$ = "" THEN
  273.         MakePath = szDir$
  274.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  275.         MakePath = szDir$ + szFile$
  276.     ELSE
  277.         MakePath = szDir$ + "\" + szFile$
  278.     END IF
  279. END FUNCTION
  280.  
  281. '*** Installation for video for windows
  282.  
  283. SUB InstallVfW STATIC
  284.  
  285. VFWINIT:
  286.  
  287.     CUIDLL$ = "vwcuistf.dll"            ''Custom user interface dll
  288.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  289.  
  290.     WIN32ENABLED% = 0
  291.     MajorVer% = GetWindowsMajorVersion()
  292.     MinorVer% = GetWindowsMinorVersion()
  293.     Processor% = GetProcessorType()
  294.     WinDir$ = GetWindowsDir()
  295.     DEST$ = GetWindowsDir()
  296.     WinSysDir$ = GetWindowsSysDir()
  297.     WinSys32Dir$ = WinDir$ + "system32"
  298.  
  299.      IF MinorVer% = 95 THEN
  300.       i% = DoMsgBox("Video for Windows is native to Windows 95, so installation is completed!","Installation Finished",MB_OK+MB_TASKMODAL+MB_ICONINFORMATION)
  301.       END
  302.       END IF
  303.  
  304.     IF MajorVer% < 3 OR (MajorVer% = 3 AND MinorVer% < 10) THEN
  305.     i% = DoMsgBox("Microsoft Windows version 3.10 or greater is required for this software.  Please upgrade your version of Windows.", "Installation Problem", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  306.     END
  307.     END IF
  308.  
  309.     'Prevents installation on 286
  310.     IF Processor% < 3 THEN
  311.     i% = DoMsgBox("Video for Windows requires a 386 or greater processor or emulator.", "Installation Problem", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  312.     END
  313.     END IF
  314.  
  315.     ' Use Wowexec to determine version of NT.  3.1 did not stamp wowexec and wow returns 3.1 as version
  316.     IF OnWindowsNT() THEN
  317.       OnNT$ = "TRUE"
  318.       WowVersion$ = GetVersionOfFile(WinSys32Dir$ + "\wowexec.exe")
  319.       IF WowVersion$ = "" THEN
  320.          i% = DoMsgBox("Video for Windows does not run on Windows NT 3.1.  Please upgrade your version of Windows.", "Installation Problem", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  321.          END
  322.       END IF
  323.     END IF
  324.  
  325.     SetBitmap CUIDLL$, LOGO
  326.     SetTitle "Video for Windows 1.1 Runtime"
  327.  
  328.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  329.     IF szInf$ = "" THEN
  330.        szInf$ = GetSymbolValue("STF_CWDDIR") + "VFWSETUP.INF"
  331.     END IF
  332.     ReadInfFile szInf$
  333.  
  334.     WINDRIVE$ = MID$(GetWindowsDir, 1, 1)
  335.  
  336. VWWELCOME:
  337.     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
  338.     IF sz$ = "CONTINUE" THEN
  339.        UIPop 1
  340.      ELSE
  341.     GOSUB VWASKQUIT
  342.     GOTO VWWELCOME
  343.     END IF
  344.  
  345. ''Prepare Copy list and check size
  346.  
  347.     ClearCopyList
  348.     SrcDir$ = GetSymbolValue("STF_SRCDIR") + "vfwrt"
  349.  
  350. '' Remove DCISVGA file
  351.       AddSectionFilesToCopyList "remove", SrcDir$, WinSysDir$
  352.  
  353. ''  Runtime files (on Windows disk)
  354. ''  Do not install OLE or MPlayer if on next release of NT or Windows
  355.  
  356.     IF ((NOT OnNT$ = "TRUE") AND MinorVer% < 50) THEN            'These files not necessary on Windows NT
  357.     AddSectionFilesToCopyList "MPlayer", SrcDir$, WinDir$
  358.     AddSectionFilesToCopyList "OLE2", SrcDir$, WinSysDir$
  359.     END IF
  360.     AddSectionFilesToCopyList "VfW Runtime", SrcDir$, WinSysDir$
  361.     AddSectionFilesToCopyList "ACM Drivers", SrcDir$, WinSysDir$
  362.     AddSectionFilesToCopyList "AVICodecs", SrcDir$, WinSysDir$
  363.     IF OnNT$ = "TRUE" THEN
  364.     AddSectionFilesToCopyList "NT MSVideo", SrcDir$, WinSys32Dir$
  365.     ENDIF
  366. ''*************************************************************************************************************************
  367. ''*************************************************************************************************************************
  368. ''To add a DCI provider, please un-comment the AddSectionFilesToCopyList,
  369. ''and add a "DCI Provider" section with to the SETUP.INF file.
  370. ''
  371. ''    AddSectionFilesToCopyList "DCI Provider", SrcDir$, WinSysDir$
  372. ''*************************************************************************************************************************
  373. ''*************************************************************************************************************************
  374.  
  375. ''  Check windrive diskspace
  376.     SizeReq& = GetCopyListCost ("","", "")
  377.     IF SizeReq& <> 0 THEN
  378.     GOSUB VWSMALLWIN
  379.     END
  380.     END IF
  381.  
  382. VWInstall
  383.  
  384. '' Restart Windows: if it has to updates ACM from DOS, it restarts Windows automatically
  385. '' else, it gives the user the choice
  386.     RESTRT% = RestartListEmpty ()
  387.     Exe$ = DEST$ + "\_msrstrt.exe"
  388.     Batch$ = DEST$ + "\_mssetup.bat"
  389.     empty$ = ""
  390. VWRESTART:
  391.     IF RESTRT% = 0 THEN
  392.        sz$ = UIStartDlg(CUIDLL$, RESTART, "FInfo0DlgProc", 0, "")
  393.        IF sz$ = "REACTIVATE" THEN
  394.       GOTO VWRESTART
  395.        ENDIF
  396.        I% = ExitExecRestart ()
  397.        RemoveFile Exe$, cmoForce
  398.        RemoveFile Batch$, cmoForce
  399.        END
  400.     ELSE
  401.        sz$ = UIStartDlg(CUIDLL$, RESTARTII, "FQuitDlgProc", 0, "")
  402.        IF sz$ = "CONTINUE" THEN
  403.       I% = ExitWindowsExec (Exe$, empty$)
  404.       IF I% = 0 THEN
  405.          GOTO VWRESTART
  406.       ELSE
  407.          END
  408.      ENDIF
  409.        ELSEIF sz$ = "EXIT" THEN
  410.       UIPopAll
  411.       END
  412.        ELSEIF sz$ = "REACTIVATE" THEN
  413.       GOTO VWRESTART
  414.        ELSE
  415.       UIPop 1
  416.        END IF
  417.     END IF
  418.  
  419.  
  420. VWQUIT:
  421. '*    ON ERROR GOTO VWERRQUIT
  422.  
  423.     IF ERR = 0 THEN
  424.     dlg% = EXITSUCCESS
  425.     ELSEIF ERR = STFQUIT THEN
  426.     dlg% = EXITQUIT
  427.     ELSE
  428.     dlg% = EXITFAILURE
  429.     END IF
  430. VWQUITL1:
  431.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  432.     IF sz$ = "REACTIVATE" THEN
  433.     GOTO VWQUITL1
  434.     END IF
  435.     UIPop 1
  436.     END
  437.  
  438. VWERRQUIT:
  439.     i% = DoMsgBox("An installation problem occured, call the product support service", "Setup Problem", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  440.     END
  441.  
  442.  
  443. VWASKQUIT:
  444.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  445.  
  446.     IF sz$ = "EXIT" THEN
  447.     UIPopAll
  448. ''        ERROR STFQUIT
  449.     END
  450.     ELSEIF sz$ = "REACTIVATE" THEN
  451.     GOTO VWASKQUIT
  452.     ELSE
  453.     UIPop 1
  454.     END IF
  455.     RETURN
  456.  
  457. VWSMALLWIN:
  458.     sz$ = UIStartDlg(CUIDLL$, SMALLWIN, "FInfo0DlgProc", 0, "")
  459.     IF sz$ = "REACTIVATE" THEN
  460.     GOTO VWSMALLWIN
  461.     END IF
  462.     UIPop 1
  463.     RETURN
  464.  
  465.  
  466. END SUB
  467.  
  468. '**
  469. '** Purpose:
  470. '**     Performs all installation operations for the Video for Windows 1.1 runtime.
  471. '** Arguments:
  472. '**     none.
  473. '** Returns:
  474. '**     none.
  475. '*************************************************************************
  476. SUB VWInstall STATIC
  477.  
  478.     SetRestartDir WinDir$
  479.     CopyFilesInCopyList
  480.  
  481. ''Updating WIN.INI and SYSTEM.INI
  482. ''Only update SYSTEM.INI  on NT or next version of Windows for other codecs
  483.  
  484. IF ((NOT OnNT$ = "TRUE") AND MinorVer% < 50) THEN
  485.     IF VflatdPresent() = 0 THEN
  486.        CreateSysIniKeyValue WinDir$ + "system.ini", "386Enh", "device", "dva.386", cmoOverwrite
  487.     END IF
  488. END IF
  489.     CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.CVID", "iccvid.drv", cmoOverwrite
  490.     CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.MSVC", "msvidc.drv", cmoOverwrite
  491.     CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.IV32", "ir32.dll", cmoOverwrite
  492.     CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.IV31", "IR32.dll", cmoOverwrite
  493.     CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.MRLE", "MSRLE.drv", cmoOverwrite
  494.     I% = DoesIniKeyExist ("system.ini", "Drivers", "VIDC.RT21")
  495.     IF I% = 0  THEN
  496.        CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.RT21", "ir21_r.dll", cmoOverwrite
  497.     END IF
  498.     CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.YVU9", "ir21_r.dll", cmoOverwrite
  499.     CreateIniKeyValue WinDir$ + "WIN.INI", "mci extensions", "avi", "AVIVideo", cmoOverwrite
  500.     CreateIniKeyValue WinDir$ + "system.ini", "mci", "AVIVideo", "mciavi.drv", cmoOverwrite
  501.     CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "WaveMapper", "msacm.drv", cmoOverwrite
  502.     CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "MSACM.msadpcm", "msadpcm.acm", cmoOverwrite
  503.     CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "MSACM.imaadpcm", "imaadpcm.acm", cmoOverwrite
  504.     CreateIniKeyValue WinDir$ + "control.ini", "drivers.desc", "msacm.drv", "Microsoft Sound Mapper V2.00", cmoOverwrite
  505.     CreateIniKeyValue WinDir$ + "control.ini", "drivers.desc", "msadpcm.acm", "Microsoft ADPCM Codec V2.00", cmoOverwrite
  506.     CreateIniKeyValue WinDir$ + "control.ini", "drivers.desc", "imaadpcm.acm", "Microsoft IMA ADPCM Codec V2.00", cmoOverwrite
  507.  
  508. ''*************************************************************************************************************************
  509. ''*************************************************************************************************************************
  510. ''To add a DCI provider, please un-comment the UDH line, and un-comment and replace the    <provider> with your own file name
  511. ''
  512. ''  CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "DCI", "<provider>", cmoOverwrite
  513. ''  CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "vids.draw", "udh.dll", cmoOverwrite
  514. ''*************************************************************************************************************************
  515. ''*************************************************************************************************************************
  516.  
  517. ''Do not register components not installed with Video for Windows on NT or next version of Windows.
  518. IF ((NOT OnNT$ = "TRUE") AND MinorVer% < 50) THEN
  519.     Run ("regedit.exe /s " + MakePath(WinDir$, "mplayer.reg"))
  520.     Run ("regedit.exe /s " + MakePath(WinSysDir$, "OLE2.reg"))
  521.     Run ("regedit.exe /s " + MakePath(WinSysDir$, "cleanup.reg"))
  522.  
  523. '' Mplayer
  524.     CreateProgmanItem "Accessories", "Media Player", MakePath(WinDir$, "mplayer.exe"), "", cmoOverwrite
  525.  
  526. END IF    ''NT and next version of Windows installation stop here.
  527.  
  528.     Run ("profdisp.exe")
  529. END SUB
  530.  
  531.